home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / Solitaire / Sources / Pyramid / GameCardPileDelegate.m < prev    next >
Text File  |  1994-01-17  |  6KB  |  213 lines
  1. /* indent:4  tabsize:8  font:fixed-width */
  2.  
  3. #import "GameCardPileDelegate.h"
  4. #import "../Solitaire/CardSet.subproj/cardset.h"
  5. #import "Pyramid.h"
  6.  
  7. @implementation GameCardPileDelegate
  8.  
  9. /*--------------------------------------------------------------------------
  10. |
  11. |    - setDiscardLeft:left discardRight:right
  12. | 
  13. |    returns: (id) self
  14. |
  15. |---------------------------------------------------------------------------
  16. |
  17. |    Set connections to other piles.
  18. |    
  19. \--------------------------------------------------------------------------*/
  20.  
  21. - setDiscardLeft:left discardRight:right
  22. {
  23.     discardCardPileViewL = left;
  24.     discardCardPileViewR = right;
  25.     return self;
  26. }
  27.  
  28.  
  29. /*--------------------------------------------------------------------------
  30. |
  31. |    - (BOOL)draggedPile:aCardPile from:gameCardPileView
  32. | 
  33. |    returns: (BOOL) YES if it is legal to drag the card.
  34. |
  35. |             (BOOL) NO if it is not legal to drag the card.
  36. |
  37. |---------------------------------------------------------------------------
  38. |
  39. |    Called by a GamePileCardView when the user tries to drag a card.
  40. |    
  41. \--------------------------------------------------------------------------*/
  42.  
  43. - (BOOL)draggedPile: aCardPile from:gameCardPileView
  44. {
  45.  
  46.     /*-----------------------------------------------------------------------
  47.      *
  48.      * Dragging is only allowed if the pile is not covered.
  49.      *
  50.      *-----------------------------------------------------------------------*/
  51.     if ([gameCardPileView pileCovered:self])
  52.     return NO;
  53.     else
  54.     return YES;
  55. }
  56.  
  57.  
  58. /*--------------------------------------------------------------------------
  59. |
  60. |    - removedPile: aCardPile from: gameCardPileView
  61. |
  62. |    returns:        (id)        self
  63. |
  64. |---------------------------------------------------------------------------
  65. |
  66. |    Called by a GamePileCardView after cards have been dragged off 
  67. |    the pile.
  68. |    
  69. \--------------------------------------------------------------------------*/
  70.  
  71. - removedPile:aCardPile from:aCardPileView
  72. {
  73.     /*-----------------------------------------------------------------------
  74.     |
  75.     |    Since the game piles only contain a single card, we
  76.     |    know that the pile is now empty, so we remove it from
  77.     |    its superview's list of subviews.  This prevents the pile
  78.     |    from getting any more mouse events.
  79.     |
  80.     \----------------------------------------------------------------------*/
  81.     
  82.     [aCardPileView removeFromSuperview];
  83.     [SolGameController() checkForWin];
  84.  
  85.     return self;
  86. }
  87.  
  88.  
  89. /*--------------------------------------------------------------------------
  90. |
  91. |    - (BOOL) canAcceptPile:aCardPile from:sender in:gameCardPileView
  92. |
  93. |    returns:    (BOOL)    YES if card pile will accept dropped cards.
  94. |
  95. |            (BOOL)    NO if this card pile rejects the dropped cards.
  96. |
  97. |---------------------------------------------------------------------------
  98. |
  99. |    Called by a GamePileCardView when the user tries to drop cards on it.
  100. |    
  101. \---------------------------------------------------------------------------*/
  102.  
  103. - (BOOL)canAcceptPile:aCardPile from:sender in:gameCardPileView
  104. {
  105.     id card1 = [aCardPile cardAt:CS_TOP];
  106.     id card2 = [[gameCardPileView cardPile] cardAt:CS_TOP];
  107.  
  108.     /*-----------------------------------------------------------------------
  109.     |
  110.     |    Can only accept a card if this pile is not covered by
  111.     |    others, and the two cards add to 13.
  112.     |
  113.     \----------------------------------------------------------------------*/
  114.     if (![gameCardPileView pileCovered:sender])
  115.     {
  116. /* #define PYRAMID_CHEAT_CHEAT_CHEAT */
  117. #ifndef PYRAMID_CHEAT_CHEAT_CHEAT
  118.     if (card1 && card2)
  119.     {
  120.         if (([card1 value] + [card2 value]) == 11)
  121.         return YES;
  122.     }
  123. #else
  124.     return YES;
  125. #endif
  126.  
  127.     }
  128.     return NO;
  129. }
  130.  
  131.  
  132. /*--------------------------------------------------------------------------
  133. |
  134. |    - acceptPile: aCardPile in: gameCardPileView
  135. |
  136. |    returns:        (id)        self
  137. |
  138. |---------------------------------------------------------------------------
  139. |
  140. |    Called by a GamePileCardView after cards have been successfully 
  141. |    added to the pile as a result of cards being dropped on it.
  142. |    
  143. \---------------------------------------------------------------------------*/
  144.  
  145. - acceptPile:aCardPile in:gameCardPileView
  146. {
  147.     id leftMatchPile = [discardCardPileViewL cardPile];
  148.     id rightMatchPile = [discardCardPileViewR cardPile];
  149.     id gamePile = [gameCardPileView cardPile];
  150.     id aCard;
  151.  
  152.     /*-----------------------------------------------------------------------
  153.     |
  154.     |    Remove both cards from the game pile, and move
  155.     |    them to the match piles.  Then remove the game pile
  156.     |    view from it's superviews list, so that it doesn't get
  157.     |    any more mouse events.
  158.     \------------------------------------------------------------------------*/
  159.  
  160.     aCard = [gamePile cardAt:CS_TOP];
  161.     [gamePile removeCard:aCard];
  162.     [leftMatchPile addCard:aCard];
  163.     aCard = [gamePile cardAt:CS_TOP];
  164.     [gamePile removeCard:aCard];
  165.     [rightMatchPile addCard:aCard];
  166.  
  167.     [discardCardPileViewL display];
  168.     [discardCardPileViewR display];
  169.     [gameCardPileView display];
  170.     [gameCardPileView removeFromSuperview];
  171.  
  172.     [SolGameController() checkForWin];
  173.     return self;
  174. }
  175.  
  176. /*--------------------------------------------------------------------------
  177. |
  178. |    doubleClickedCard:aCard in:aCardPileView
  179. |
  180. |    returns: (id) self
  181. |
  182. |---------------------------------------------------------------------------
  183. |
  184. |    Double clicked on a card; discard if it is a King.
  185. |    
  186. \--------------------------------------------------------------------------*/
  187.  
  188. - doubleClickedCard:aCard in:aCardPileView
  189. {
  190.     id cardPile = [aCardPileView cardPile];
  191.     
  192.     // can't remove a card that's covered
  193.     if ([aCardPileView pileCovered:self])
  194.     {
  195.         return self;
  196.     }
  197.  
  198.     if (aCard && (aCard == [cardPile cardAt:CS_TOP]) && 
  199.                                                [aCard value] == CS_KING)
  200.     {
  201.         [[discardCardPileViewL cardPile] addCard:[cardPile cardAt:CS_TOP]];
  202.     [cardPile removeCard:[cardPile cardAt:CS_TOP]];
  203.     [aCardPileView display];
  204.         [aCardPileView removeFromSuperview];
  205.     [discardCardPileViewL display];
  206.     [SolGameController() checkForWin];
  207.  
  208.     }
  209.     return self;
  210. }
  211.  
  212. @end
  213.